home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / DOS.asm < prev    next >
Assembly Source File  |  1990-11-10  |  3KB  |  184 lines
  1. *
  2. *    DOS.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the most common procedures
  6. *    and functions defined in Include/Libraries/DOS.i.
  7. *
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _p%DOSBase
  13.  
  14.     XDEF    _DOSClose
  15.     XREF    _LVOClose
  16. _DOSClose
  17.     move.l    4(sp),d1
  18.     move.l    _p%DOSBase,a6
  19.     jmp    _LVOClose(a6)
  20.  
  21.     XDEF    _DateStamp
  22.     XREF    _LVODateStamp
  23. _DateStamp
  24.     move.l    4(sp),d1
  25.     move.l    _p%DOSBase,a6
  26.     jmp    _LVODateStamp(a6)
  27.  
  28.     XDEF    _Delay
  29.     XREF    _LVODelay
  30. _Delay
  31.     move.l    4(sp),d1
  32.     move.l    _p%DOSBase,a6
  33.     jmp    _LVODelay(a6)
  34.  
  35.     XDEF    _DeleteFile
  36.     XREF    _LVODeleteFile
  37. _DeleteFile
  38.     move.l    4(sp),d1
  39.     move.l    _p%DOSBase,a6
  40.     jsr    _LVODeleteFile(a6)
  41.     tst.l    d0
  42.     sne    d0
  43.     rts
  44.  
  45.     XDEF    _DupLock
  46.     XREF    _LVODupLock
  47. _DupLock
  48.     move.l    4(sp),d1
  49.     move.l    _p%DOSBase,a6
  50.     jmp    _LVODupLock(a6)
  51.  
  52.     XDEF    _Examine
  53.     XREF    _LVOExamine
  54. _Examine
  55.     move.l    d2,-(sp)
  56.     move.l    8(sp),d2
  57.     move.l    12(sp),d1
  58.     move.l    _p%DOSBase,a6
  59.     jsr    _LVOExamine(a6)
  60.     move.l    (sp)+,d2
  61.     tst.l    d0
  62.     sne    d0
  63.     rts
  64.  
  65.     XDEF    _Execute
  66.     XREF    _LVOExecute
  67. _Execute
  68.     movem.l    d2/d3,-(sp)
  69.     move.l    12(sp),d3
  70.     move.l    16(sp),d2
  71.     move.l    20(sp),d1
  72.     move.l    _p%DOSBase,a6
  73.     jsr    _LVOExecute(a6)
  74.     movem.l    (sp)+,d2/d3
  75.     tst.l    d0
  76.     sne    d0
  77.     rts
  78.  
  79.     XDEF    _DOSExit
  80.     XREF    _LVOExit
  81. _DOSExit
  82.     move.l    4(sp),d1
  83.     move.l    _p%DOSBase,a6
  84.     jmp    _LVOExit(a6)
  85.  
  86.     XDEF    _ExNext
  87.     XREF    _LVOExNext
  88. _ExNext
  89.     move.l    d2,-(sp)
  90.     move.l    8(sp),d2
  91.     move.l    12(sp),d1
  92.     move.l    _p%DOSBase,a6
  93.     jsr    _LVOExNext(a6)
  94.     move.l    (sp)+,d2
  95.     tst.l    d0
  96.     sne    d0
  97.     rts
  98.  
  99.     XDEF    _DOSInput
  100.     XREF    _LVOInput
  101. _DOSInput
  102.     move.l    _p%DOSBase,a6
  103.     jmp    _LVOInput(a6)
  104.  
  105.     XDEF    _IoErr
  106.     XREF    _LVOIoErr
  107. _IoErr
  108.     move.l    _p%DOSBase,a6
  109.     jmp    _LVOIoErr(a6)
  110.  
  111.     XDEF    _Lock
  112.     XREF    _LVOLock
  113. _Lock
  114.     move.l    d2,-(sp)
  115.     move.l    8(sp),d2
  116.     move.l    12(sp),d1
  117.     move.l    _p%DOSBase,a6
  118.     jsr    _LVOLock(a6)
  119.     move.l    (sp)+,d2
  120.     rts
  121.  
  122.     XDEF    _DOSOpen
  123.     XREF    _LVOOpen
  124. _DOSOpen
  125.     move.l    d2,-(sp)
  126.     move.l    8(sp),d2
  127.     move.l    12(sp),d1
  128.     move.l    _p%DOSBase,a6
  129.     jsr    _LVOOpen(a6)
  130.     move.l    (sp)+,d2
  131.     rts
  132.  
  133.     XDEF    _DOSOutput
  134.     XREF    _LVOOutput
  135. _DOSOutput
  136.     move.l    _p%DOSBase,a6
  137.     jmp    _LVOOutput(a6)
  138.  
  139.     XDEF    _DOSRead
  140.     XREF    _LVORead
  141. _DOSRead
  142.     movem.l    d2/d3,-(sp)
  143.     move.l    12(sp),d3
  144.     move.l    16(sp),d2
  145.     move.l    20(sp),d1
  146.     move.l    _p%DOSBase,a6
  147.     jsr    _LVORead(a6)
  148.     movem.l    (sp)+,d2/d3
  149.     rts
  150.  
  151.     XDEF    _Rename
  152.     XREF    _LVORename
  153. _Rename
  154.     move.l    d2,-(sp)
  155.     move.l    8(sp),d2
  156.     move.l    12(sp),d1
  157.     move.l    _p%DOSBase,a6
  158.     jsr    _LVORename(a6)
  159.     move.l    (sp)+,d2
  160.     tst.l    d0
  161.     sne    d0
  162.     rts
  163.  
  164.     XDEF    _UnLock
  165.     XREF    _LVOUnLock
  166. _UnLock
  167.     move.l    4(sp),d1
  168.     move.l    _p%DOSBase,a6
  169.     jmp    _LVOUnLock(a6)
  170.  
  171.     XDEF    _DOSWrite
  172.     XREF    _LVOWrite
  173. _DOSWrite
  174.     movem.l    d2/d3,-(sp)
  175.     move.l    12(sp),d3
  176.     move.l    16(sp),d2
  177.     move.l    20(sp),d1
  178.     move.l    _p%DOSBase,a6
  179.     jsr    _LVOWrite(a6)
  180.     movem.l    (sp)+,d2/d3
  181.     rts
  182.  
  183.     END
  184.